home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Amiga Public Domain Connection / APDC Disk #025 - Programming Languages (198x)(Amiga Public Domain Connection)(US)[m][WB].zip / APDC Disk #025 - Programming Languages (198x)(Amiga Public Domain Connection)(US)[m][WB].adf / Modula-2 / m2 / TrapTest.MOD < prev    next >
Text File  |  1988-03-15  |  94b  |  8 lines
  1. MODULE TrapTest;
  2.  
  3. VAR i, j: INTEGER; r: REAL;
  4. BEGIN
  5.   i:=3; j:=0;
  6.   i:=i DIV j;
  7. END TrapTest.
  8.